Filename	(eval 21)[/usr/share/perl5/JSON/PP.pm:67]
Statements	Executed 3 statements in 14µs
Eval Invoked At	/usr/share/perl5/JSON/PP.pm line 67
Sibling evals	1, 2

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	12µs	12µs	JSON::PP::::utf8JSON::PP::utf8
0	0	0	0s	0s	JSON::PP::::get_utf8JSON::PP::get_utf8

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1
2					# spent 12µs within JSON::PP::utf8 which was called: # once (12µs+0s) by JSON::PP::encode_json at line 106 of JSON/PP.pm sub utf8 {
3	1	2µs			my $enable = defined $_[1] ? $_[1] : 1;
4
5	1	4µs			if ($enable) {
6					$_[0]->{PROPS}->[P_UTF8] = 1;
7					}
8					else {
9					$_[0]->{PROPS}->[P_UTF8] = 0;
10					}
11
12	1	7µs			$_[0];
13					}
14
15					sub get_utf8 {
16					$_[0]->{PROPS}->[P_UTF8] ? 1 : '';
17					}
18
19					;